100 Plus Great Games 2/100PLUSV2.BIN/games/SkyGunner.dxr/00021_Ship Carrier.ls

Text File | 2002-01-25 | 10.9 KB | 326 lines

property spriteNum, pEnemyAlive, pSpeed, pBlend, pWidth, pHeight, pTimeRelease, pRandomTime, pLife, pPowFrame, pTempTime, pHold, pFrame, pShipNav
global gPlaneHit, gPlayerDead, gScore, gShipsDestroyed

on beginSprite
  pLife = 20
  pPowFrame = 1
  pFrame = 1
  pHold = 12
  pShipNav = 1
  pEnemyAlive = 0
  sprite(spriteNum).locV = 80
  pSpeed = 0.59999999999999998
  pBlend = 2.0
  sprite(spriteNum).blend = pBlend
  pWidth = 18.69999999999999929
  sprite(spriteNum).width = pWidth
  pHeight = 13.19999999999999929
  sprite(spriteNum).height = pHeight
  pTimeRelease = random(80) + 10
  sprite(spriteNum).locV = 600
  startTimer()
end

on exitFrame
  if pEnemyAlive = 1 then
    if pShipNav = 1 then
      pSpeed = pSpeed + (pSpeed * 0.01)
      sprite(spriteNum).locV = sprite(spriteNum).locV + integer(pSpeed)
      pBlend = pBlend * 1.07000000000000006
      if pBlend > 100 then
        pBlend = 100
      end if
      sprite(spriteNum).blend = integer(pBlend)
      pWidth = pWidth + 0.80000000000000004
      sprite(spriteNum).width = integer(pWidth)
      pHeight = pHeight + 0.80000000000000004
      sprite(spriteNum).height = integer(pHeight)
      if sprite(spriteNum).locH > 515 then
        if sprite(spriteNum).member.name <> "carrier08" then
          sprite(spriteNum).member = "carrier08"
        end if
      else
        if sprite(spriteNum).locH > 450 then
          if sprite(spriteNum).member.name <> "carrier07" then
            sprite(spriteNum).member = "carrier07"
          end if
        else
          if sprite(spriteNum).locH > 385 then
            if sprite(spriteNum).member.name <> "carrier06" then
              sprite(spriteNum).member = "carrier06"
            end if
          else
            if sprite(spriteNum).locH > 320 then
              if sprite(spriteNum).member.name <> "carrier05" then
                sprite(spriteNum).member = "carrier05"
              end if
            else
              if sprite(spriteNum).locH > 255 then
                if sprite(spriteNum).member.name <> "carrier04" then
                  sprite(spriteNum).member = "carrier04"
                end if
              else
                if sprite(spriteNum).locH > 190 then
                  if sprite(spriteNum).member.name <> "carrier03" then
                    sprite(spriteNum).member = "carrier03"
                  end if
                else
                  if sprite(spriteNum).locH > 125 then
                    if sprite(spriteNum).member.name <> "carrier02" then
                      sprite(spriteNum).member = "carrier02"
                    end if
                  else
                    if sprite(spriteNum).locH > 160 then
                      if sprite(spriteNum).member.name <> "carrier01" then
                        sprite(spriteNum).member = "carrier01"
                      end if
                    else
                      if sprite(spriteNum).locH <= 160 then
                        if sprite(spriteNum).member.name <> "carrier00" then
                          sprite(spriteNum).member = "carrier00"
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
      if gPlayerDead = 0 then
        if (sprite(spriteNum).locH > 250) and (sprite(spriteNum).locH < 330) then
          if (sprite(spriteNum).locV > 200) and (sprite(spriteNum).locV < 460) then
            pHold = pHold + 1
            if pHold = 8 then
              pFrame = 5
            end if
            if pHold > 16 then
              puppetSound(4, "3INCHGUN")
              gPlaneHit = 1
              pFrame = random(4)
              pHold = 1
            end if
            case pFrame of
              1:
                sprite(spriteNum).member = "Ship1_Fire_1"
              2:
                sprite(spriteNum).member = "Ship1_Fire_2"
              3:
                sprite(spriteNum).member = "Ship1_Fire_3"
              4:
                sprite(spriteNum).member = "Ship1_Fire_4"
              5:
                sprite(spriteNum).member = "Ship1_Fire_5"
            end case
          end if
        end if
      end if
      if sprite(spriteNum).locV > 540 then
        sprite(spriteNum).locV = 80
        sprite(spriteNum).locH = random(580)
        pSpeed = 0.59999999999999998
        pBlend = 2.0
        sprite(spriteNum).blend = pBlend
        pWidth = 18.69999999999999929
        sprite(spriteNum).width = pWidth
        pHeight = 13.19999999999999929
        sprite(spriteNum).height = pHeight
        pTimeRelease = the timer
        pRandomTime = random(60) + 30
        pLife = 20
        if abs(sprite(54).locV - sprite(52).locV) < 50 then
          if sprite(54).locH > (sprite(52).locH - 30) then
            sprite(54).locH = sprite(50).locH - 31
          else
            if sprite(50).locH < (sprite(52).locH + 30) then
              sprite(54).locH = sprite(50).locH + 31
            end if
          end if
        else
          if abs(sprite(52).locV - sprite(50).locV) < 50 then
            if sprite(54).locH > (sprite(50).locH - 30) then
              sprite(54).locH = sprite(52).locH - 31
            else
              if sprite(52).locH < (sprite(50).locH + 30) then
                sprite(54).locH = sprite(52).locH + 31
              end if
            end if
          end if
        end if
      end if
      if sprite(spriteNum).locH < -290 then
        sprite(spriteNum).locH = 780
      else
        if sprite(spriteNum).locH > 780 then
          sprite(spriteNum).locH = -290
        end if
      end if
    end if
    if pLife <= 0 then
      if pShipNav = 1 then
        puppetSound(3, "crash_boom")
        if sprite(75).visible = 0 then
          sprite(75).loc = sprite(spriteNum).loc
          sprite(75).visible = 1
        else
          if sprite(76).visible = 0 then
            sprite(76).loc = sprite(spriteNum).loc
            sprite(76).visible = 1
          else
            if sprite(77).visible = 0 then
              sprite(77).loc = sprite(spriteNum).loc
              sprite(77).visible = 1
            else
              if sprite(78).visible = 0 then
                sprite(78).loc = sprite(spriteNum).loc
                sprite(78).visible = 1
              else
                if sprite(79).visible = 0 then
                  sprite(79).loc = sprite(spriteNum).loc
                  sprite(79).visible = 1
                else
                  if sprite(80).visible = 0 then
                    sprite(80).loc = sprite(spriteNum).loc
                    sprite(80).visible = 1
                  end if
                end if
              end if
            end if
          end if
        end if
        gScore = gScore + 250
        member("score text").text = "score:" && string(gScore)
        gShipsDestroyed = gShipsDestroyed + 1
        member("kills text").text = "ships:" && string(gShipsDestroyed)
        pShipNav = 0
      end if
      if pBlend >= 2 then
        pBlend = pBlend - 5
        sprite(spriteNum).blend = pBlend
      end if
      if sprite(75).visible = 1 then
        if pPowFrame <= 9 then
          sprite(75).member = "Explosion" & "0" & pPowFrame
        else
          sprite(75).member = "Explosion" & pPowFrame
        end if
        pTempTime = pTempTime + 1
        if pTempTime > 5 then
          pPowFrame = pPowFrame + 1
        end if
        if pPowFrame > 13 then
          sprite(75).visible = 0
          sprite(75).locV = 600
          sprite(spriteNum).locV = 550
          pLife = 20
          pPowFrame = 1
          pShipNav = 1
          pEnemyAlive = 0
        end if
      else
        if sprite(76).visible = 1 then
          if pPowFrame <= 9 then
            sprite(76).member = "Explosion" & "0" & pPowFrame
          else
            sprite(76).member = "Explosion" & pPowFrame
          end if
          pTempTime = pTempTime + 1
          if pTempTime > 5 then
            pPowFrame = pPowFrame + 1
          end if
          if pPowFrame > 13 then
            pPowFrame = 1
            sprite(76).visible = 0
            sprite(76).locV = 600
            sprite(spriteNum).locV = 550
            pLife = 20
            pShipNav = 1
            pEnemyAlive = 0
          end if
        else
          if sprite(77).visible = 1 then
            if pPowFrame <= 9 then
              sprite(77).member = "Explosion" & "0" & pPowFrame
            else
              sprite(77).member = "Explosion" & pPowFrame
            end if
            pTempTime = pTempTime + 1
            if pTempTime > 5 then
              pPowFrame = pPowFrame + 1
            end if
            if pPowFrame > 13 then
              pPowFrame = 1
              sprite(77).visible = 0
              sprite(spriteNum).locV = 550
              pLife = 20
              pShipNav = 1
              pEnemyAlive = 0
            end if
          else
            if sprite(78).visible = 1 then
              if pPowFrame <= 9 then
                sprite(78).member = "Explosion" & "0" & pPowFrame
              else
                sprite(78).member = "Explosion" & pPowFrame
              end if
              pTempTime = pTempTime + 1
              if pTempTime > 5 then
                pPowFrame = pPowFrame + 1
              end if
              if pPowFrame > 13 then
                pPowFrame = 1
                sprite(78).visible = 0
                sprite(spriteNum).locV = 550
                pLife = 20
                pShipNav = 1
                pEnemyAlive = 0
              end if
            else
              if sprite(79).visible = 1 then
                if pPowFrame <= 9 then
                  sprite(79).member = "Explosion" & "0" & pPowFrame
                else
                  sprite(79).member = "Explosion" & pPowFrame
                end if
                pTempTime = pTempTime + 1
                if pTempTime > 5 then
                  pPowFrame = pPowFrame + 1
                end if
                if pPowFrame > 13 then
                  pPowFrame = 1
                  sprite(79).visible = 0
                  sprite(spriteNum).locV = 550
                  pLife = 20
                  pShipNav = 1
                  pEnemyAlive = 0
                end if
              else
                if sprite(80).visible = 1 then
                  if pPowFrame <= 9 then
                    sprite(80).member = "Explosion" & "0" & pPowFrame
                  else
                    sprite(80).member = "Explosion" & pPowFrame
                  end if
                  pTempTime = pTempTime + 1
                  if pTempTime > 5 then
                    pPowFrame = pPowFrame + 1
                  end if
                  if pPowFrame > 13 then
                    pPowFrame = 1
                    sprite(80).visible = 0
                    sprite(spriteNum).locV = 550
                    pLife = 20
                    pShipNav = 1
                    pEnemyAlive = 0
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end